home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / net / AmiComSysMUI.lha / AmiComSys / Install < prev    next >
Text File  |  1998-09-05  |  11KB  |  240 lines

  1. ; Install script for AmiComSys 1.20 68020+/Kick 3.0
  2. ;
  3. ; $VER: AmiComSys-install 1.33 (05.09.98) Håkan Parting
  4. (set highcpu 1)
  5.  
  6. ; ** set system variables **
  7. (set cpu (database "cpu"))
  8. (if (= cpu 68000) (set #cpu 0))
  9. (if (= cpu 68010) (set #cpu 1))
  10. (if (= cpu 68020) (set #cpu 2))
  11. (if (= cpu 68030) (set #cpu 3))
  12. (if (= cpu 68040) (set #cpu 4))
  13. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  14. (set osver (/ (getversion) 65536))
  15.  
  16. ; set texts
  17. (set #nonlist "AmiComSys requires the MUI-costum-class\nNList.mcc version 19+ by Gilles Masson\n\nIt must be installed before AmiComSys\nPlease, download it from Aminet:dev/mui/MCC_NList0.85.lha\nAnd install it with the included installer script\nThen try to install AmiComSys again ...")
  18. (set #nomui "AmiComSys requires Magic User Interface (MUI) 3.8!\n\nYou can find it on Aminet:dev/gui/mui38usr.lha")
  19. (set #wrongcpu0 "This archive does only include a version for 68020/kickstart 3.0 and\nhigher.\n\nYou may download a 68000 version from\nhttp://amicomsys.tibb.at\nAt the bottom of the page\n\nInstallation is aborted")
  20. (set #wrongcpu2 "This archive does only include a version for 68000/Kickstart 2.0 and\nhigher. A version for 68020 and higher is available\nat http://amicomsys.tibb.at\nor\nAminet:comm/net/AmiComSysMUI.lha")
  21. (set #noamarquee "AmiComSys requires AMarquee.library version 47+ by Jeremy Friesner!\n\nPlease download it from Aminet:comm/net/AMarquee1_48.lha")
  22. (set #seldocs "Select which documentation you want to install!")
  23. (set #selscr "Do you want to install the following Arexx-scripts?\nThey may be executed at different occasions.\nIf you already have a costum version of these you\nshould not check the checkboxes infront of the names.")
  24. (set #selscrhelp "The NotifyArexx.amicomsys may be executed when someone is\nconnecting or disconnecting. A simple example is included in this\narchive, but a more versatile one can be found at\nAminet:comm/net/ACS-Notify.lha and is written by Scott Beardwood\nThe MessageArexx.amicomsys script may be executed when someone\nmessage you. There is a simple example script in this archive.\nThese scripts does only work if you have registered AmiComSys.")
  25. (set #selsize "Which screen size will AmiComSys run at?")
  26. (set #selsizehelp "Specify which screen size AmiComSys will run at.\nIf your screen size is lower than 640x512 then the\nTooltype LOWRESOLUTION will be inserted into\nthe AmiComSys icon.\nIf this Tooltype exists AmiComSys will open up with a\nwindow layout that will work on such a system.")
  27. (set #selimages "Do you want to use the 20 colour-(NewIcons-style)-graphics-buttons\nor the 8 coulour-(MagicWB-style)-graphics-buttons?")
  28. (set #selimageshelp "This version of AmiComSys have graphics here and there.\nDo you want MagicWB style graphics or the NewIcons one?\nIf you have installed a replacement graphics-set, you'd better\nspecify that. If not it would be overwritten.\nIf you have screen size that is smaller than 640x512 then\nbetter choose the NewIcons graphics set, because the MagicWB one\nis to big.\nNote that the NewIcons 3/4 does not have to be installed\nto use the 20 colour-images!")
  29. (set #readmefile "AmiComSysMUI1.20a.readme");
  30. (set #notextinput "If you are using Amiga Kickstart 36, 37 or 38\nAmiComSys requires the costum MUI class\nTextinput.mcc.\nThis class couldn't be found in\nyour LIBS:/mui directory.\n\nPlease download it from\nftp://ftp.vapor.com/misc/textinpt_13.XX.lzx\nwhere XX is 34 or higher.");
  31. (set #stringtext "")
  32. (set #wrongos "This version of AmiComSys requires Kickstart 3.0+\nThere is Kickstart 2.0 version available at the\nhome page.")
  33. (if (> osver 38) (set #stringtext "BetterString.mcc © Allan Odgaard\n"))
  34. (if (= highcpu 0) (set #cputext "68000/OS2.0+ version\n"))
  35. (if (= highcpu 1) (set #cputext "68020+/OS3.0+ version\n"))
  36.  
  37.  
  38. (message
  39.      "Welcome to the AmiComSys 1.20a installer!\n\n"
  40.     "You may either use this for a first\n"
  41.     "time install or for updating a former\n"
  42.     "version of AmiComSys.\n\n"
  43.     "AmiComSys © Håkan Parting 1997-1998\n"
  44.     #cputext
  45.     "Requires:\n"
  46.     "MUI 3.8+ © Stefan Stuntz\n"
  47.     "AMarquee 1.47+ © Jeremy Friesner\n"
  48.     "NList.mcc 19+ © Gilles Masson\n"
  49.     "Toolbar.mcc © Benny Kjær Nielsen\n"
  50.     #stringtext    
  51. )
  52.  
  53. (message
  54.     "\n\n\nPlease make sure that no session of AmiComSys\nis running before you proceed with this\ninstallation."
  55. )
  56.  
  57. ;(if (< osver 39) (exit #wrongos))
  58.  
  59. (if (< (exists "MUI:") 2) (exit #nomui) )
  60. (if (exists "LIBS:muimaster.library") (
  61.     (set muiver (/(getversion "LIBS:muimaster.library") 65536))
  62. ))
  63. (if (< muiver 19) ( 
  64.     (exit #nomui)
  65. ))
  66.  
  67. (set muiver 0)
  68. (if (exists "LIBS:MUI/NList.mcc") (
  69.     (set muiver (/(getversion "LIBS:MUI/NList.mcc") 65536))
  70. ))
  71. (if (< muiver 19) ( 
  72.     (exit #nonlist)
  73. ))
  74.  
  75. (set amaver 0)
  76. (if (exists "LIBS:amarquee.library") (
  77.     (set amaver (/(getversion "LIBS:amarquee.library") 65536))
  78. ))
  79. (if (< amaver 47) ( 
  80.     (exit #noamarquee)
  81. ))
  82.  
  83. (welcome)
  84. (set cpuVal (askchoice (choices "68000" "68010" "68020" "68030"
  85.                          "68040" "68060"
  86.                     )
  87.                 (prompt "Please, select the processor your Amiga have")
  88.                 (help   "Recommended is to leave it as default")
  89.                   (default #cpu)
  90.           )
  91. )
  92.  
  93. (if (= highcpu 1) (if (< cpuVal 2) (exit #wrongcpu0) ))
  94. (if (= highcpu 0) (if (> cpuVal 1) (message #wrongcpu2) ))
  95.  
  96. (set DefDir (getassign "MIAMI"))
  97. (if (= DefDir "") (set DefDir (getassign "AmiTCP")) )
  98. (if (= DefDir "") (set DefDir (getassign "Inet")) )
  99.  
  100. (set #target (askdir    (prompt "Where do you want to install AmiComSys?\nA directory named AmiComSys will be created.")
  101.                         (help "Select a directory, where you want to install AmiComSys!\nA directory named AmiComSys will be created there.")
  102.                         (default DefDir)
  103. ))
  104.  
  105. (set instdir (tackon #target "AmiComSys"))
  106. (set @default-dest instdir)
  107.  
  108. (makedir instdir (infos))
  109. (if (< (exists (tackon instdir "pictures")) 2) (makedir (tackon instdir "pictures")) )
  110.  
  111. (if (< (exists (tackon instdir "images")) 2) (makedir (tackon instdir "images")) )
  112.  
  113. ; copy over files
  114.  
  115. (copyfiles (source "AmiComSys") (dest instdir) )
  116.  
  117. (if (= (exists (tackon instdir "AmiComSys.info")) 1)
  118. (
  119.     (makedir (tackon instdir "icons") (infos))
  120.     (copyfiles (source "AmiComSys.info") (dest (tackon instdir "icons")))
  121.     (message "The latest icon-file was copied to the icons directory of AmiComSys")
  122. )
  123. )
  124. (if (= (exists (tackon instdir "AmiComSys.info")) 0))
  125.     (copyfiles (source "AmiComSys.info") (dest instdir))
  126.  
  127.  
  128. ;(tooltype (dest (tackon instdir "AmiComSys")) (settooltype "PROGDIR" instdir) )
  129.  
  130. (copyfiles (source "Register") (dest (tackon instdir "Register")) (all) (infos))
  131.  
  132. (set si (askchoice (choices "greater than or equals 640x512" "lower than 640x512")
  133.                     (prompt #selsize)
  134.                     (help #selsizehelp)
  135.                     (default 0)
  136. ))
  137.  
  138. (if (= si 1) (
  139.     (tooltype (dest (tackon instdir "AmiComSys")) (settooltype "LOWRESOLUTION" "1") )
  140. ))
  141. (if (= si 0) (
  142.     (tooltype (dest (tackon instdir "AmiComSys")) (settooltype "LOWRESOLUTION") )
  143. ))
  144.  
  145.  
  146. (set imag (askchoice (choices "NewIcons" "MagicWB (640x512 or better screen size needed)" "I've installed a replacement gfx-set")
  147.                     (prompt #selimages)
  148.                     (help #selimageshelp)
  149.                     (default 1)
  150. ))
  151.  
  152. (if (= imag 0) (copyfiles (source "NIImages") (dest (tackon instdir "Images")) (all)))
  153. (if (= imag 1) (copyfiles (source "MWBImages") (dest (tackon instdir "Images")) (all)))
  154.  
  155. (copyfiles (source "Rexx") (pattern "~(NotifyArexx.amicomsys|MessageArexx.amicomsys)") (dest (tackon instdir "Rexx")))
  156.  
  157. (set arscrp (askoptions (choices "NotifyArexx.amicomsys" "MessageArexx.amicomsys")
  158.                     (prompt #selscr)
  159.                     (help #selscrhelp)
  160.                     (default 2)
  161. ))
  162.  
  163. (if (<> arscrp 0) (
  164.     (if (IN arscrp 0) (copyfiles (source "Rexx/NotifyArexx.amicomsys") (dest (tackon instdir "Rexx"))))
  165.     (if (IN arscrp 1) (copyfiles (source "Rexx/MessageArexx.amicomsys") (dest (tackon instdir "Rexx"))))
  166. ))
  167.  
  168. ; install docs
  169. (set docs (askoptions (choices "AmiComSysMUI.guide" "AmiComSys.readme" "BetterString.readme" "Toolbar.guide" "Readme.mui")
  170.                 (prompt #seldocs)
  171.                 (help #seldocs)
  172.                 (default 31)
  173. ))
  174.  
  175. (if (<> docs 0) (
  176.     (if (IN docs 1) (copyfiles (source #readmefile) (dest instdir) (newname "AmiComSys.readme") (infos) ) )
  177.     (if (IN docs 0) (
  178.         (set #doctarget (askdir (prompt "Where do you want to install the guide?")
  179.                 (default instd